(inferior-scheme-mode):

Remove space after `:' in mode-line-process.

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 9f236ad624efa099502d832e7c83eb2eb0ac0059..49eab2965d54735df1941978d2c37ed1fbdf9172 100644 (file)
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -184,7 +184,7 @@ to continue it."
   (scheme-mode-variables)
   (setq major-mode 'inferior-scheme-mode)
   (setq mode-name "Inferior Scheme")
-  (setq mode-line-process '(": %s"))
+  (setq mode-line-process '(":%s"))
   (use-local-map inferior-scheme-mode-map)
   (setq comint-input-filter (function scheme-input-filter))
   (setq comint-get-old-input (function scheme-get-old-input))